home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx / Modular / OpenScr.mod < prev    next >
Text File  |  1993-08-19  |  847b  |  19 lines
  1.     /*          Open a public screen */
  2.     OpenScr:
  3.      ti = "       This is an example of a 'Public Screen'"
  4.      pens = '121213102'
  5.      result = OpenScreen(100,3,HIRES,ti,PUBSCR,pens,520,140,60)
  6.      if result = 1 then do
  7.        newcol = ScreenColor(PUBSCR,0,10,10,10)
  8.        tx = ' This Requester is on a new screen, with a new\',
  9.             'colour 0.  The screen has been made quite small, just\',
  10.             "for interest. If you grab the screen's title bar, you\",
  11.             'can slide it just about anywhere. But if you grab the\',
  12.             'title bar of this requester and try sliding it around,\',
  13.             'you will see just how small the screen itself is.\',
  14.             'The screen will close when you click on "Okay".'
  15.        req = Request(24,20,tx,,'Okay',,PUBSCR)
  16.        r = CloseScreen(PUBSCR)
  17.        end
  18.      return
  19.